home *** CD-ROM | disk | FTP | other *** search
/ Designer's Club 1996 December / Designer's Club 1996 December.iso / pc / ideasrc / seasons.dir / 00012_Script_12 < prev    next >
Text File  |  1996-11-06  |  1KB  |  51 lines
  1. on startmovie
  2.   global slider, toolH, toolV, gallery
  3.   set slider = 0
  4.   set the locH of sprite 40 to toolH
  5.   set the locV of sprite 40 to toolV
  6. end
  7.  
  8. on stopmovie
  9.   global toolH, toolV
  10.   set toolH = the locH of sprite 40
  11.   set toolV = the locV of sprite 40
  12. end
  13.  
  14. on pressit button, swap  
  15.   puppetsound "clickdn"
  16.   repeat while the mousedown
  17.     set the visible of sprite button to false
  18.     updatestage
  19.   end repeat
  20.   set the visible of sprite button to true
  21.   puppetsound "clickup"
  22. end
  23.  
  24. on tools  
  25.   global slider
  26.   go the frame
  27.   repeat with n = 41 to 46
  28.     puppetsprite n, true
  29.   end repeat
  30.   repeat with n = 41 to 46
  31.     set the locV of sprite n to the locV of sprite 40 + 42
  32.   end repeat
  33.   set the locH of sprite 41 to the locH of sprite 40 
  34.   set the locH of sprite 42 to the locH of sprite 40 - 116
  35.   set the locH of sprite 43 to the locH of sprite 40 - 69
  36.   set the locH of sprite 44 to the locH of sprite 40 - 22
  37.   set the locH of sprite 45 to the locH of sprite 40 + 34
  38.   set the locH of sprite 46 to the locH of sprite 40 + 104
  39.   updatestage
  40. end tools
  41.  
  42. on keyDown 
  43.   if the key = 1 then set the soundLevel to (1)
  44.   if the key = 2 then set the soundLevel to (2)
  45.   if the key = 3 then set the soundLevel to (3)
  46.   if the key = 4 then set the soundLevel to (4)
  47.   if the key = 5 then set the soundLevel to (5)
  48.   if the key = 6 then set the soundLevel to (6)
  49.   if the key = 7 then set the soundLevel to (7)
  50. end keydown
  51.